home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
AdmitEditor.zprx
< prev
next >
Wrap
Text File
|
1995-03-09
|
5KB
|
230 lines
/*
$VER: Administration Editor V1.1 (13.01.95) Copyright © Nils Görs
Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man aus
Zodiac's Point heraus, einige der Verwaltungsdateien editieren
kann. Es werden z.Zt. folgende Verwaltungsdateien unterstützt:
privCookie.zp, Cookie.zp, privHeader.zp, Header.zp, StepIn.zp,
StepOut.zp, Fkeys.zp und Usermenu.zp.
Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
nicht ohne Erlaubnis des Autors.
Sie erreichen den Autor wie folgt:
Nils Görs Tel. : +49 (0)202 784258
Kaiserstr. 97a EMail: N.Goers@Art-Line.wupper.de
42329 Wuppertal oder über das ZP-Support-Brett.
Verwenden Sie bitte nach Möglichkeit elektronische Post!
Hinweise zur Installation:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
"F1:SYS:Rexxc/RX ZP:Rexx/AdmitEditor.zprx %s [PARAMETER]"
hinzu. Mögliche Parameter für das Skript:
CO = lädt öffentlichen Cookie
CP = lädt privaten Cookie
HO = lädt öffentlichen Header
HP = lädt privaten Header
SI = lädt StepIn.zp Datei
SO = lädt StepOut.zp Datei
FK = lädt Fkeys.zp Datei
UM = lädt usermenu.zp Datei
Wenn Sie dem Programm einen falschen bzw. keinen Parameter über-
geben, öffnet sich automatisch ein Filerequester mit dem Sie dann
eine Datei auswählen können.
Alternativ können auch folgende Zeilen in die Datei usermenus.zp
eingefügt werden:
*öffentliche Origins
SYS:Rexxc/RX Zodiac:Rexx/AdmitEditor.zprx %s CO
*private Origins
SYS:Rexxc/RX Zodiac:Rexx/AdmitEditor.zprx %s CP
*/
/*******************************************************************
* Bitte unterhalb dieser Zeile nichts mehr verändern! *
*******************************************************************/
HeimatPfad = "Bretter"
PrivCookie = "/privCookie.zp"
PubCookie = "/Cookie.zp"
PrivHeader = "/privHeader.zp"
PubHeader = "/Header.zp"
FKeyDatei = "/Fkeys.zp"
StepInDatei = "/StepIn.zp"
StepOutDatei = "/StepOut.zp"
UsermenuDatei= "/Usermenus.zp"
MatchFileList= "(#?cookie#?|#?header#?|Fkeys#?|Step#?|usermenus#?|alias#?|login#?|config#?)"
NL = '0a'x
OPTIONS RESULTS
/* ------ von welchem ZP Port wurde das Script aufgerufen ? ------ */
PARSE ARG zpPort Funktion .
IF zpPort == "" THEN
zpPort = "ZPoint"
ADDRESS VALUE zpPort
/* ---- hier wird überprüft, welche Datei geladen werden soll ---- */
UPPER Funktion
IF Funktion == "CP" THEN DO /* Cookieliste privat */
CALL PrivatCookie
END
IF Funktion == "CO" THEN DO /* Cookieliste öffentlich */
CALL PublicCookie
END
IF Funktion == "SI" THEN DO /* Stepin.zp */
CALL StepIn
END
IF Funktion == "SO" THEN DO /* StepOut.zp */
CALL StepOut
END
IF Funktion == "HP" THEN DO /* privHeader.zp */
CALL privHeader
END
IF Funktion == "HO" THEN DO /* Header.zp */
CALL Header
END
IF Funktion == "FK" THEN DO /* Fkeys.zp */
CALL FKeys
END
IF Funktion == "UM" THEN DO /* Fkeys.zp */
CALL UserMenu
END
IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
EXIT
CALL CheckPath
CALL OpenFileRequester
EXIT
/* Hier kommen die ganzen Unterroutinen */
PrivatCookie:
CALL CheckPath
IF PATH = "PATH" THEN DO
GUILOCK ON
EDITOR HeimatPfad||Privcookie
GUILOCK OFF
EXIT
END
GUILOCK ON
EDITOR Path||Privcookie
GUILOCK OFF
EXIT
RETURN
PublicCookie:
CALL CheckPath
IF PATH = "PATH" THEN DO
GUILOCK ON
EDITOR HeimatPfad||Pubcookie
GUILOCK OFF
EXIT
END
GUILOCK ON
EDITOR Path||Pubcookie
GUILOCK OFF
EXIT
RETURN
StepIn:
CALL CheckPath
IF PATH = "PATH" THEN DO
REQUESTNOTIFY "Stepin.zp muß sich innerhalb"NL,
"eines Brettes befinden!";EXIT
END
GUILOCK ON
EDITOR Path||StepInDatei
GUILOCK OFF
EXIT
RETURN
Stepout:
CALL CheckPath
IF PATH = "PATH" THEN DO
REQUESTNOTIFY "Stepout.zp muß sich innerhalb"NL,
"eines Brettes befinden!";EXIT
END
GUILOCK ON
EDITOR Path||StepOutDatei
GUILOCK OFF
EXIT
RETURN
privHeader:
CALL CheckPath
IF PATH = "PATH" THEN DO
GUILOCK ON
EDITOR HeimatPfad||PrivHeader
GUILOCK OFF
EXIT
END
GUILOCK ON
EDITOR Path||PrivHeader
GUILOCK OFF
EXIT
RETURN
Header:
CALL CheckPath
IF PATH = "PATH" THEN DO
GUILOCK ON
EDITOR HeimatPfad||PubHeader
GUILOCK OFF
EXIT
END
GUILOCK ON
EDITOR Path||PubHeader
GUILOCK OFF
EXIT
RETURN
Fkeys:
GUILOCK ON
EDITOR HeimatPfad||Fkeydatei
GUILOCK OFF
EXIT
RETURN
UserMenu:
GUILOCK ON
EDITOR HeimatPfad||UserMenuDatei
GUILOCK OFF
EXIT
RETURN
CheckPath:
WHICHLEVEL
IF Result = "BOARD" then DO
BOARDINFO PATH
PATH=Result
END
RETURN
OpenFileRequester:
IF PATH = "PATH" THEN DO
Dateiname=rtfilerequest(HeimatPfad,, "Bitte Datei auswählen",, "rt_pubscrname="zpPort "rtfi_matchpat="MatchFileList,file)
IF File == 0 THEN EXIT
GUILOCK ON
EDITOR Dateiname
GUILOCK OFF
EXIT
END
Dateiname=rtfilerequest(PATH,, "Bitte Datei auswählen",, "rt_pubscrname="zpPort "rtfi_matchpat="MatchFileList,file)
IF File == 0 THEN EXIT
GUILOCK ON
EDITOR Path||Dateiname
ADDRESS VALUE zpPort
GUILOCK OFF
EXIT
RETURN
/*EOS*/